﻿Public NotInheritable Class clsGraphColors

    Public Shared Function ColorList() As List(Of Color)
        Dim pOut As New List(Of Color)

        pOut = New List(Of Color)
        pOut.Add(clsGraphColors.Red)
        pOut.Add(clsGraphColors.Green)
        pOut.Add(clsGraphColors.Blue)
        pOut.Add(clsGraphColors.Yellow)
        pOut.Add(clsGraphColors.Orange)
        pOut.Add(clsGraphColors.Purple)
        pOut.Add(clsGraphColors.Brown)

        Return pOut
    End Function


    Public Shared Function Red() As Color
        Return Color.IndianRed
    End Function
    Public Shared Function Green() As Color
        Return Color.LightGreen
    End Function
    Public Shared Function Blue() As Color
        Return Color.RoyalBlue
    End Function
    Public Shared Function Yellow() As Color
        Return Color.Yellow
    End Function
    Public Shared Function Orange() As Color
        Return Color.Goldenrod
    End Function
    Public Shared Function Purple() As Color
        Return Color.Purple
    End Function
    Public Shared Function Brown() As Color
        Return Color.SaddleBrown
    End Function

End Class
